home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 22 / Cream of the Crop 22.iso / database / lbhr20_a.zip / CSTLABEL.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1996-10-07  |  4KB  |  75 lines
  1. CSTLABEL
  2. PROCEDURE CLABDSGN     && Main program
  3. use cstlabel in sele() order label_name
  4. sele cstlabel
  5. declare labels[reccount(),1]
  6. copy to array labels field label_name
  7. *-----------------------------------------------------------------
  8. * NAME
  9. *   CLABDSGN.PRG - Main program for form.
  10. *-----------------------------------------------------------------
  11.     PRIVATE lTalk, lVoid, cOldProc, cFormRun, cDispMode, cNewMode
  12.     IF SET( 'TALK' ) = 'ON'
  13.         SET TALK O
  14. LABEL_NAME
  15. -----------------------------------
  16.     *-- Make sure that FormRun.dbo file is active.
  17.     *-- If this program is part of a linked exe  
  18.     *-- you must either include FORMRUN.DBO in your
  19.     *-- Project file or make sure that FORMRUN.DBO
  20.     *-- is in the same directory as your exe file. 
  21.     *-- Please note that the Automatic Link feature
  22.     *-- doesn't notice FORMRUN.DBO because of the
  23.     *-- macro expansion for the SET PROCEDURE.
  24.     *----------------------------------------------
  25.     cOldProc = SET( 'PROCEDURE' )
  26.     IF [dBASE Compiler] $ VERSION(0)
  27.         SET PROCEDURE TO FORMRUN
  28.     ELSE
  29.         cFormRun = HOME() + 'FORMRUN'
  30.         SET PROCEDURE TO ( cFormRun ) 
  31.     ENDIF
  32.     #include "CLABDSGN.DFM"
  33.     IF TYPE("CLABDSGN.SetDisp") = "L" .AND. TYPE("CLABDSGN.DispMode") = "C"
  34.         IF CLABDSGN.SetDisp
  35.             cDispMode = SET('DISPLAY')
  36.             cNewMode = CLABDSGN.DispMode
  37.             SET DISPLAY TO &cNewMode
  38.             CLABDSGN.Height = CLABDSGN.nHeight
  39.         ENDIF
  40.     ENDIF
  41.     *-------------------------------------------
  42.     *-- If ModalForm is missing from .DFM set it
  43.     *-------------------------------------------
  44.     IF TYPE( 'CLABDSGN.ModalForm' ) # 'L'
  45.         CLABDSGN.ModalForm = .T.        && Assume modal form if not set
  46.     ENDIF
  47.     *-----------------------------------
  48.     *-- Open the form based on ModalForm
  49.     *-----------------------------------
  50.     IF CLABDSGN.ModalForm
  51.         *-----------------------------------
  52.         *-- Use Readmodal() to open the form
  53.         *-----------------------------------
  54.         CLABDSGN.Act
  55. LABEL_NAME
  56. NewDisks  
  57. sub_ren   
  58. LABEL_NAME
  59. NewDisks  td
  60. sub_ren   td
  61. DougSoft  ht
  62. FloppyDi  ht
  63. Magcircu  ht
  64. Myaddre   
  65. NewDisks  
  66. Newlabe   
  67. Newlabels 
  68. Newname   
  69. Overdue   
  70. REMIND    
  71. REMINDers 
  72. addlabels 
  73. overdue   
  74. sub_ren   
  75.